The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/vlparse.src

Text File | 1990-10-17 | 298b | 17 lines

%%HP: T(3)A(D)F(.);
@ by Kevin Jessup
@ used by DSORT; see DSORT.DOC.
\<< { } \-> l t d n
  \<<
    IF l SIZE DUP
    THEN 1 SWAP
      FOR i 'l' i GET
        IF VTYPE t == d XOR
        THEN n 'l' i GET 1 \->LIST + 'n' STO
        END
      NEXT
    ELSE DROP
    END n
  \>>
\>>